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14. Locatives 

A locative is a type of Lisp object used as a pointer to a cell. Locatives arc inherently a 
more low level construct than most Lisp objects; they require some knowledge of the nature of 
the Lisp implementation. 

14.1 Cells and Locatives 

A cell is a machine word that can hold a (pointer to a) Lisp object. For example, a symbol 
has five cells: the print name cell, the value cell, the function cell, the property list cell, and die 
package cell. The value cell holds (a pointer to) the binding of the symbol, and so on. Also, an 
array leader of length // has // cells, and an art-q array of // elements has // cells. (Numeric 
arrays do not have cells in this sense.) A locative is an object that points to a cell; it lets you 
refer to a cell so that you can examine or alter its contents. 

contents locative 

Returns the contents of the cell which die locative points to. This is actually the same as 
cdr, for reasons explained below, but it is clearer to use contents when the argument is 
normally a locative. 

To modify the contents of the cell, use setf on contents: 
(setf (contents loc) newvalue) 

The macro locf (sec page 38) can be used to convert a form that accesses a cell to one that 
creates a locative pointer to diat cell: for example, 

(locf (fsymeval x)) 
evaluates to a locative that points to the function cell of the value of x; that is to say, it points 
to the place where (fsymeval x) is stored. 

locf is very convenient because it saves the writer and reader of a program from having to 
remember the names of many functions that would create locatives to cells found in different 
fashions. 

One thing you should know is that it is not possible to make a locative to an element of a 
numeric array. For example, 

(setq foo (make-array 10 :type art-lb)) 
(locf (aref foo 0)) 
signals an error. Locatives may only point at entire words of memory, which contain standard 
Lisp data. 

Because of cdr-coding (see section 5.4, page 100), a cons docs not always contain an explicit 
cell which points to its cdr. ITicrcforc, it is impossible to obtain a locative which points to such 
a cell. However, this is such a useful thing to do that the cons itself is usually treated as if it 
were a locative pointing to a cell which holds the cons's cdr. (locf (cdr x)) returns die value of 
x, and (contents x) returns the cdr when x is a cons, so (contents (locf (cdr x))) is die same as 
(cdr x), as it should be. Most functions Uiat arc normally given locatives also accept a cons and 
treat it as if it were a magic locative to the (nonexistent) cell containing the cdr of the cons. 
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A cons always docs contain a cell which points to the car, and (locf (car x)) returns a 
locative whose pointer field is the same as that of x's value. 

14.2 Functions Thai Operate on Locatives 

locatlon-boundp locative 

Returns t if the cell to which locative points contains anything except a void marker. 

The void marker is a special data type, dtp-null, which is stored in cells to say that their 
value is missing. For example, an unbound variable actually has a void marker in its 
value cell, and (location -boundp (locf x)) is equivalent to (variable -boundp x). 

locatlon-makunbound locative ^optional pointer 

Stores a void marker into the cell to which locative points. This consists of data type field 
dtp- null and a pointer copied from pointer. 

The pointer field of the void marker is used to tell the error handler what variable was 
unbound. In the case of a symbol's value cell or function cell, it should point to die 
symbol header. In the case of a flavor method, it should point to die beginning of the 
block of data diat holds the definition, which is a word containing the mcUiod's function 
spec. 

If the second arg is not specified, tficn where the void marker points is not defined. 

Other functions with which locatives arc expected or useful include get (the locative points to 
the cell in which the plist is stored), store -conditional (the locative points to the cell to be 
tested and modified), and %bind (the locative points to the cell to be bound). 

14.3 Mixing Locatives with Lists 

Either of the functions car and cdr (sec page 87) may be given a locative, and will return 
the contents of the cell at which the locative points. They are both equivalent to contents when 
die argument is a locative. 

Similarly, cither of the functions rplaca and rplacd may be used to store an object into the 
cell at which a locative points. 
For example, 

(rplaca locative y) 
or 

(rplaca locative y) 
is the same as 

(setf (contents locative) y) 

If you arc just using locatives, you should use contents rather than car or cdr. But you can 
also mix locatives and conses. For example, die same variable may usefully sometimes have a 
locative as its value and sometimes a cons. Then it is useful Uiat car and cdr work on locatives, 
and it also matters which one you use. Pick the one that is right for the case of a cons. 
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I ; or example, the following function conses up a list in the forward order by adding onto the 
end. It needs to know where to put the pointer to the next cell. Usually it goes in the previous 
cell's cdr, but the first cell gets put in the cell where the list is supposed to end up. A locative is 
used as the pointer to this cell. The first time through the loop, the rplacd is equivalent to (setq 
res ...); on later times through the loop the rplacd tacks an additional cons onto the end of the 
list. 

(defun simplified-version-of-mapcar (fen 1st) 
(do ((1st 1st (cdr 1st)) 
(res nil) 
(loc (locf res))) 
((null 1st) res) 
(setf (cdr loc) 

(setq loc (neons (funcall fen (car 1st))))))) 

cdr is used here rather than contents because the normal case is that the argument is a list. 
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